home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / vision / animatio / demos / 24hdemo / backup.s < prev    next >
Text File  |  1995-11-25  |  5KB  |  362 lines
  1.  
  2. MODE    EQU    %0000000001100100
  3.  
  4. SCREEN    EQU    $300000
  5. SSTACK    EQU    $400000
  6.  
  7. SNX    EQU    094
  8. LGH    EQU    110
  9. MNH    EQU    070
  10. TEH    EQU    024
  11. MEH    EQU    036
  12.  
  13.     SECTION    TEXT
  14.  
  15.     DC.W    $A00A
  16.  
  17.     CLR.L    -(SP)
  18.     MOVE.W    #$20,-(SP)
  19.     TRAP    #1
  20.     ADDQ.L    #6,SP
  21.  
  22.     MOVE.L    D0,S_SSP1
  23.     MOVE.L    SP,S_SSP2
  24.  
  25.     LEA    SSTACK,SP
  26.  
  27.     BSR    PINITS
  28.  
  29.     BSR    WITKEY
  30.  
  31.     BSR    PEXITS
  32.  
  33.     MOVE.L    S_SSP2,SP
  34.  
  35.     MOVE.L    S_SSP1,-(SP)
  36.     MOVE.W    #$20,-(SP)
  37.     TRAP    #1
  38.     ADDQ.L    #6,SP
  39.  
  40.     DC.W    $A009
  41.  
  42.     CLR.W    -(SP)
  43.     TRAP    #1
  44.  
  45. PINITS    MOVEM.L    D0-D7/A0-A6,-(SP)
  46.  
  47.     MOVE.W    #2,-(SP)
  48.     TRAP    #14
  49.     ADDQ.L    #2,SP
  50.  
  51.     MOVE.L    D0,S_PHY
  52.  
  53.     MOVE.W    #3,-(SP)
  54.     TRAP    #14
  55.     ADDQ.L    #2,SP
  56.  
  57.     MOVE.L    D0,S_LOG
  58.  
  59.     MOVE.W    #-1,-(SP)
  60.     MOVE.W    #88,-(SP)
  61.     TRAP    #14
  62.     ADDQ.L    #4,SP
  63.  
  64.     MOVE.W    D0,S_MODE
  65.  
  66.     MOVE.W    #MODE,-(SP)
  67.     MOVE.W    #3,-(SP)
  68.     PEA    SCREEN
  69.     PEA    SCREEN
  70.     MOVE.W    #5,-(SP)
  71.     TRAP    #14
  72.     LEA    14(SP),SP
  73.  
  74.     MOVEC    CACR,D0
  75.     MOVE.L    D0,S_CACR
  76.     ANDI.W    #$FEFE,D0
  77.     MOVEC    D0,CACR
  78.  
  79.     MOVE.L    $00000070.W,S_0070
  80.     MOVE.L    $00000120.W,S_0120
  81.     MOVE.B    $FFFFFA07.W,S_FA07
  82.     MOVE.B    $FFFFFA13.W,S_FA13
  83.     MOVE.B    $FFFFFA09.W,S_FA09
  84.     MOVE.B    $FFFFFA15.W,S_FA15
  85.     MOVE.B    $FFFFFA17.W,S_FA17
  86.  
  87.     MOVE    #$2700,SR
  88.  
  89.     CLR.B    $FFFFFA07.W
  90.     CLR.B    $FFFFFA13.W
  91.     CLR.B    $FFFFFA09.W
  92.     CLR.B    $FFFFFA15.W
  93.  
  94.     MOVE.L    #VBLSNX,$0070.W
  95.     MOVE.L    #HBLSX1,$0120.W
  96.  
  97.     BCLR    #$3,$FFFFFA17.W
  98.     OR.B    #$1,$FFFFFA07.W
  99.     OR.B    #$1,$FFFFFA13.W
  100.  
  101.     MOVE    #$2300,SR
  102.  
  103.     MOVEQ    #$2,D0
  104.     BSR    WITVBL
  105.  
  106.     CLR.L    $FFFF9800.W
  107.  
  108.     MOVEM.L    (SP)+,D0-D7/A0-A6
  109.     RTS
  110.  
  111. PEXITS    MOVEM.L    D0-D7/A0-A6,-(SP)
  112.  
  113.     MOVEQ    #$2,D0
  114.     BSR    WITVBL
  115.  
  116.     MOVE    #$2700,SR
  117.  
  118.     MOVE.L    S_0070,$00000070.W
  119.     MOVE.L    S_0120,$00000120.W
  120.     MOVE.B    S_FA07,$FFFFFA07.W
  121.     MOVE.B    S_FA13,$FFFFFA13.W
  122.     MOVE.B    S_FA09,$FFFFFA09.W
  123.     MOVE.B    S_FA15,$FFFFFA15.W
  124.     MOVE.B    S_FA17,$FFFFFA17.W
  125.  
  126. ACIAON    BTST    #0,$FFFFFC00.W
  127.     BEQ.S    ACIAOF
  128.  
  129.     MOVE.B    $FFFFFC02.W,D0
  130.     BRA.S    ACIAON
  131.  
  132. ACIAOF    MOVE.L    S_CACR,D0
  133.     MOVEC    D0,CACR
  134.  
  135.     MOVE    #$2300,SR
  136.  
  137.     MOVE.W    S_MODE,-(SP)
  138.     MOVE.W    #3,-(SP)
  139.     MOVE.L    S_PHY,-(SP)
  140.     MOVE.L    S_LOG,-(SP)
  141.     MOVE.W    #5,-(SP)
  142.     TRAP    #14
  143.     LEA    14(SP),SP
  144.  
  145.     MOVEM.L    (SP)+,D0-D7/A0-A6
  146.     RTS
  147.  
  148. VBLSNX    MOVEM.L    D0/A0,-(SP)
  149.  
  150.     LEA    PTRLOG,A0
  151.  
  152.     MOVE.B    1(A0),$FFFF8201.W
  153.     MOVE.B    2(A0),$FFFF8203.W
  154.     MOVE.B    3(A0),$FFFF820D.W
  155.  
  156.     CLR.W    $FFFF820E.W
  157.  
  158.     CLR.B    $FFFFFA1B.W
  159.  
  160.     MOVE.B    #LGH,$FFFFFA21.W
  161.  
  162.     MOVE.L    #HBLSX1,$00120.W
  163.  
  164.     MOVE.B    #$08,$FFFFFA1B.W
  165.  
  166.     MOVE.L    PTRMNT,A0
  167.     MOVE.L    ADDMNT,D0
  168.     ADD.L    D0,A0
  169.  
  170.     MOVE.L    A0,CRTMNT
  171.  
  172.     ADDI.L    #002*2,D0
  173.     CMPI.L    #384*2,D0
  174.     BCS.S    MNTNEN
  175.  
  176.     MOVEQ    #00,D0
  177.  
  178. MNTNEN    MOVE.L    D0,ADDMNT
  179.  
  180.     MOVE.L    PTRTER,A0
  181.     MOVE.L    ADDTER,D0
  182.     ADD.L    D0,A0
  183.  
  184.     MOVE.L    A0,CRTTER
  185.  
  186.     ADDI.L    #004*2,D0
  187.     CMPI.L    #384*2,D0
  188.     BCS.S    TERNEN
  189.  
  190.     MOVEQ    #00,D0
  191.  
  192. TERNEN    MOVE.L    D0,ADDTER
  193.  
  194.     MOVE.L    PTRMER,A0
  195.     MOVE.L    ADDMER,D0
  196.     ADD.L    D0,A0
  197.  
  198.     MOVE.L    A0,CRTMER
  199.  
  200.     ADDI.L    #006*2,D0
  201.     CMPI.L    #384*2,D0
  202.     BCS.S    MERNEN
  203.  
  204.     MOVEQ    #00,D0
  205.  
  206. MERNEN    MOVE.L    D0,ADDMER
  207.  
  208.     ADDQ.W    #1,VBLCNT
  209.  
  210.     MOVEM.L    (SP)+,D0/A0
  211.     RTE
  212.  
  213. HBLSX1    MOVE    #$2700,SR
  214.  
  215.     MOVEM.L    D0-D1/A0-A1,-(SP)
  216.  
  217.     LEA    $FFFF8209.W,A0
  218.     MOVE.B    (A0),D0
  219. SYNCN1    CMP.B    (A0),D0
  220.     BEQ.S    SYNCN1
  221.  
  222.     DCB.W    SNX,$4E71
  223.  
  224.     LEA    $FFFF8203.W,A0
  225.     LEA    $FFFF820E.W,A1
  226.     MOVE.L    CRTMNT,D0
  227.     MOVE.W    #384,D1
  228.  
  229.     MOVE.W    D1,(A1)
  230.     MOVEP.L    D0,(A0)
  231.  
  232.     CLR.B    $FFFFFA1B.W
  233.  
  234.     MOVE.B    #MNH,$FFFFFA21.W
  235.  
  236.     MOVE.L    #HBLSX2,$00120.W
  237.  
  238.     MOVE.B    #$08,$FFFFFA1B.W
  239.  
  240.     MOVEM.L    (SP)+,D0-D1/A0-A1
  241.     RTE
  242.  
  243. HBLSX2    MOVE    #$2700,SR
  244.  
  245.     MOVEM.L    D0-D1/A0-A1,-(SP)
  246.  
  247.     LEA    $FFFF8209.W,A0
  248.     MOVE.B    (A0),D0
  249. SYNCN2    CMP.B    (A0),D0
  250.     BEQ.S    SYNCN2
  251.  
  252.     DCB.W    SNX,$4E71
  253.  
  254.     LEA    $FFFF8203.W,A0
  255.     LEA    $FFFF820E.W,A1
  256.     MOVE.L    CRTTER,D0
  257.     MOVE.W    #384,D1
  258.  
  259.     MOVE.W    D1,(A1)
  260.     MOVEP.L    D0,(A0)
  261.  
  262.     CLR.B    $FFFFFA1B.W
  263.  
  264.     MOVE.B    #TEH,$FFFFFA21.W
  265.  
  266.     MOVE.L    #HBLSX3,$00120.W
  267.  
  268.     MOVE.B    #$08,$FFFFFA1B.W
  269.  
  270.     MOVEM.L    (SP)+,D0-D1/A0-A1
  271.     RTE
  272.  
  273. HBLSX3    MOVE    #$2700,SR
  274.  
  275.     MOVEM.L    D0-D1/A0-A1,-(SP)
  276.  
  277.     LEA    $FFFF8209.W,A0
  278.     MOVE.B    (A0),D0
  279. SYNCN3    CMP.B    (A0),D0
  280.     BEQ.S    SYNCN3
  281.  
  282.     DCB.W    SNX,$4E71
  283.  
  284.     LEA    $FFFF8203.W,A0
  285.     LEA    $FFFF820E.W,A1
  286.     MOVE.L    CRTMER,D0
  287.     MOVE.W    #384,D1
  288.  
  289.     MOVE.W    D1,(A1)
  290.     MOVEP.L    D0,(A0)
  291.  
  292.     CLR.B    $FFFFFA1B.W
  293.  
  294.     MOVE.B    #MEH,$FFFFFA21.W
  295.  
  296.     MOVE.L    #HBLSX4,$00120.W
  297.  
  298.     MOVE.B    #$08,$FFFFFA1B.W
  299.  
  300.     MOVEM.L    (SP)+,D0-D1/A0-A1
  301.     RTE
  302.  
  303. HBLSX4    RTE
  304.  
  305. WITKEY    CMP.B    #$39,$FFFFFC02.W
  306.     BNE.S    WITKEY
  307. RELKEY    CMP.B    #$B9,$FFFFFC02.W
  308.     BNE.S    RELKEY
  309.     RTS
  310.  
  311. WITVBL    MOVE.W    VBLCNT,D1
  312.     ADD.W    D0,D1
  313. WITNEW    CMP.W    VBLCNT,D1
  314.     BCS.S    WITNEW
  315.     RTS
  316.  
  317.     SECTION    DATA
  318.  
  319. PTRLOG    DC.L    SANEXT
  320. PTRMNT    DC.L    SANMNT
  321. PTRTER    DC.L    SANTER
  322. PTRMER    DC.L    SANMER
  323.  
  324. SANEXT    INCBIN    'SANEXT.BMP'
  325.     EVEN
  326.  
  327. SANMNT    INCBIN    'SANMNT.BMP'
  328.     EVEN
  329.  
  330. SANTER    INCBIN    'SANTER.BMP'
  331.     EVEN
  332.  
  333. SANMER    INCBIN    'SANMER.BMP'
  334.     EVEN
  335.  
  336.     SECTION    BSS
  337.  
  338. S_SSP1    DS.L    1
  339. S_SSP2    DS.L    1
  340. S_PHY    DS.L    1
  341. S_LOG    DS.L    1
  342. S_0070    DS.L    1
  343. S_0120    DS.L    1
  344. S_CACR    DS.L    1
  345. S_MODE    DS.W    1
  346. S_FA07    DS.B    1
  347. S_FA13    DS.B    1
  348. S_FA09    DS.B    1
  349. S_FA15    DS.B    1
  350. S_FA17    DS.B    1
  351.  
  352. ADDMNT    DS.L    1
  353. CRTMNT    DS.L    1
  354. ADDTER    DS.L    1
  355. CRTTER    DS.L    1
  356. ADDMER    DS.L    1
  357. CRTMER    DS.L    1
  358.  
  359. VBLCNT    DS.W    1
  360.  
  361.     END
  362.